File:  of Disk: Disks/PDP8-Net/disk2-fortran
(Source file text) 

X
	EXTERN	#RSVO
	TRAP3	#RSVO
	FSTA	IRACE
	EXTERN	#RSVO
	TRAP3	#RSVO
	FSTA	ITON
	EXTERN	#RSVO
	TRAP3	#RSVO
	FSTA	IFIELD
	EXTERN	#RSVO
	TRAP3	#RSVO
	FSTA	IBIO
	FLDA	#LIT+0011
	FSTA	I

#G0022,	FLDA	I
	ATX	7
	EXTERN	#RSVO
	TRAP3	#RSVO
	FSTA	IDIAG-0003,7
	FLDA	I
	FADD	#LIT+0003
	FSTA	I
	FSUB	#LIT+0017
	JLE	#G0022
	FLDA	#LIT+0003
	ATX	7
	EXTERN	#RSVO
	TRAP3	#RSVO
	FSTA	MGMT-0003,7
	FLDA	#LIT+0003
	FMUL	#LIT+0011
	FADD	#LIT+0003
	ATX	6
	EXTERN	#RSVO
	TRAP3	#RSVO
	FSTA	DRUG-0014,6
	FLDA	#LIT+0006
	FMUL	#LIT+0011
	FADD	#LIT+0003
	ATX	5
	EXTERN	#RSVO
	TRAP3	#RSVO
	FSTA	DRUG-0014,5
	FLDA	#LIT+0003
	FMUL	#LIT+0011
	FADD	#LIT+0006
	ATX	4
	EXTERN	#RSVO
	TRAP3	#RSVO
	FSTA	DRUG-0014,4
	FLDA	#LIT+0006
	FMUL	#LIT+0011
	FADD	#LIT+0006
	ATX	3
	EXTERN	#RSVO
	TRAP3	#RSVO
	FSTA	DRUG-0014,3
	FLDA	#LIT+0003
	FMUL	#LIT+0011
	FADD	#LIT+0011
	ATX	2
	EXTERN	#RSVO
	TRAP3	#RSVO
	FSTA	DRUG-0014,2
	FLDA	#LIT+0006
	FMUL	#LIT+0011
	FADD	#LIT+0011
	ATX	1
	EXTERN	#RSVO
	TRAP3	#RSVO
	FSTA	DRUG-0014,1
	EXTERN	#RENDO
	TRAP3	#RENDO
	LDX	0066,0
	FLDA	EOF
	FSUB	#LIT+0000
	EXTERN	#NE
	JSA	#NE
	FSTA